Shareware Grab Bag/Shareware Grab Bag.iso/003/dflow.arc/CUSTIO.PRG

Text File | 1985-04-08 | 877 b | 49 lines

PROCEDURE PRINTER
set device to print
do custsout
eject
set device to screen
RETURN
PROCEDURE CUSTSIN
@ 1,1 SAY "Order"
@ 1,18 GET order
@ 3,1 SAY "First name"
@ 3,13 GET fname
@ 3,37 SAY "Last name"
@ 3,48 GET lname
@ 5,1 SAY "Company"
@ 5,10 GET co
@ 6,1 SAY "Address"
@ 6,10 GET addr1
@ 7,10 GET addr2
@ 9,1 SAY "City"
@ 9,10 GET city
@ 9,32 SAY "State"
@ 9,39 GET state
@ 9,52 SAY "Country"
@ 9,61 GET country
@ 10,1 SAY "zip"
@ 10,10 GET zip
RETURN
PROCEDURE CUSTSOUT
@ 1,1 say "order"
@ 1,8 say order
@ 3,1 say "First name"
@ 3,13 say fname
@ 3,37 say "last name"
@ 3,48 say lname
@ 5,1 say "Company"
@ 5,10 say co
@ 6,1 say "address"
@ 6,10 say addr1
@ 7,10 say addr2
@ 9,1 say "City"
@ 9,10 say city
@ 9,32 say "State"
@ 9,39 say state
@ 9,52 say "Country"
@ 9,61 say country
@ 10,1 say "zip"
@ 10,10 say zip
RETURN
P